Sub Prueba_Transporte()
    Dim c As New Coche         'Crea e inicializa objeto de tipo Coche
    Dim t As ITransporte       'Crea objeto de tipo ITransporte
    Set t = c                  'Asigna objeto Coche a objeto ITransporte
    
    t.pPrecio = 1.2            'Asigna precio al transporte
    Debug.Print t.tostring     'Visualiza en ventana Inmediato los datos del transporte

End Sub
